home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_28018.txt < prev    next >
Text File  |  1990-08-07  |  4KB  |  185 lines
  1. -- card: 28018 from stack: in.0-2
  2. -- bmap block id: 5297
  3. -- flags: 0000
  4. -- background id: 27044
  5. -- name: desktop media
  6. ----- HyperTalk script -----
  7. on doAnimation
  8.   set cursor to none
  9.   reset
  10.   wait 20
  11.   lock screen
  12.   set icon of btn "screenBtn" to "goCD1"
  13.   unlock screen with dissolve
  14.   wait 30
  15.   set icon of btn "screenBtn" to "goCD2"
  16.   wait 20
  17.   set icon of btn "screenBtn" to "goCD1"
  18.   wait 20
  19.   lock screen
  20.   set icon of btn "screenBtn" to "blankScreen"
  21.   unlock screen with dissolve
  22.   repeat for 4
  23.     set the hilite of btn "CDROM" to not the hilite of btn "CDROM"
  24.   end repeat
  25.   zoomRect the rect of btn "CDROM", the rect of btn "CD"
  26.   show btn "CD"
  27.   wait 20
  28.   spinCD
  29.   play "Harpsichord" tempo 200 c6e cs c ce c a5 g f a ge gs g ge g e d c e de ds d ce cs c b4e bs b d5e ds d ee es e ce cs c de g4s a c5 d e f g a b
  30.   play "Harpsichord" tempo 200 c6e cs c ce c a5 g f a ge gs g ge g e d c e de ds d ce cs c b4e bs b d5e ds d ee es e ce cs c de g4s a c5 d e f g a b c6h
  31.   lock screen
  32.   set icon of btn "screenBtn" to "seever1"
  33.   unlock screen with dissolve
  34.   wait 20
  35.   spinCD
  36.   doFruit grapes,6
  37.   wait 10
  38.   spinCD
  39.   lock screen
  40.   set icon of btn "screenBtn" to "chart1"
  41.   unlock screen with dissolve
  42.   wait 40
  43.   spinCD
  44.   doFruit berry,5
  45.   wait 10
  46.   spinCD
  47.   lock screen
  48.   set icon of btn "screenBtn" to "chart2"
  49.   unlock screen with dissolve
  50.   wait 30
  51.   spinCD
  52.   lock screen
  53.   set icon of btn "screenBtn" to "seever1"
  54.   unlock screen with dissolve slow
  55.   spinCD
  56.   wait until the sound is "done"
  57.   spinCD
  58.   lock screen
  59.   set icon of btn "screenBtn" to "screen"
  60.   unlock screen with dissolve
  61.   wait 20
  62.   spinCD
  63.   repeat for 4
  64.     set the hilite of btn "CD" to not the hilite of btn "CD"
  65.   end repeat
  66.   wait 20
  67.   zoomRect the rect of btn "CD", the rect of btn "CDROM"
  68.   hide btn "CD"
  69.   wait 40
  70.   show cd btn "See It Again"
  71. end doAnimation
  72.  
  73. on reset
  74.   hide cd btn "See It Again"
  75. end reset
  76.  
  77. on spinCD
  78.   repeat for 6
  79.     repeat with n = 1 to 3
  80.       set the icon of btn "CD" to ("disc" & n)
  81.     end repeat
  82.   end repeat
  83. end spinCD
  84.  
  85. on doFruit str,n
  86.   blankScreen
  87.   repeat with m = 1 to n
  88.     set icon of btn "screenBtn" to (str & m)
  89.     wait 10
  90.   end repeat
  91.   set icon of btn "screenBtn" to "blankScreen"
  92. end doFruit
  93.  
  94. on blankScreen
  95.   lock screen
  96.   set icon of btn "screenBtn" to "blankScreen"
  97.   unlock screen with dissolve
  98. end blankScreen
  99.  
  100.  
  101.  
  102.  
  103. -- part 7 (button)
  104. -- low flags: 80
  105. -- high flags: A004
  106. -- rect: left=349 top=172 right=189 bottom=429
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 174
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: See It Again
  115. ----- HyperTalk script -----
  116. -- This handler resets the animation and shows it again.
  117. on mouseUp
  118.   set cursor to none
  119.   reset
  120.   unlock screen
  121.   wait 20
  122.   doAnimation
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 8 (button)
  128. -- low flags: 80
  129. -- high flags: 0000
  130. -- rect: left=352 top=107 right=138 bottom=384
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 7325 / 7325
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: CD
  139.  
  140.  
  141. -- part 9 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=348 top=139 right=153 bottom=386
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: CDROM
  153.  
  154.  
  155. -- part 10 (button)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=300 top=86 right=133 bottom=344
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 6855 / 6855
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: screenBtn
  167.  
  168.  
  169. -- part 11 (field)
  170. -- low flags: 01
  171. -- high flags: 0000
  172. -- rect: left=65 top=78 right=190 bottom=276
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 174
  177. -- text size: 14
  178. -- style flags: 256
  179. -- line height: 15
  180. -- part name: 
  181.  
  182.  
  183. -- part contents for card part 11
  184. ----- text -----
  185. HyperCard allows you to control the technologies that make your ideas sell: videodisc players and CD-ROM. Presentations with HyperCard alone are also easy to produce & easy to customize.